#!/usr/bin/perl
# xshell2.pl
use warnings;
use strict;

use Shell qw(ls mv rm);

my $dir = (@ARGV)?$ARGV[0]:".";
my @files = split "\n",ls -1;
 

foreach (@files) {
   print "File $_ ";
   if (/~$/) {
      # delete files ending in ~
      rm $_;
      print "deleted";
   } else {
      # rename to lowercase
      my $newname = lc $_;
      if ($newname ne $_) {
          mv $_,lc($_);
          print "renamed $newname";
      } else {
         print "ok";
      }
   }
   print "\n";
}
